home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 64 / 064.d81 / logic cad (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  12.0 KB  |  362 lines
  1. 5 print"[147]":poke53281,0:poke53280,.:gosub61000:poke55,.:poke56,127:clr
  2. 10 sys57812"cad.bin",8,0:poke780,0:poke781,64:poke782,183:sys65493
  3. 12 sd=54272:forx=0to24:pokesd+x,.:next
  4. 15 poke53265,peek(53265)and239
  5. 20 poke56576,(peek(56576)and252)or1
  6. 30 poke53272,(peek(53272)and15)or14:        poke648,128
  7. 35 :
  8. 36 sys49167 : rem init color memory
  9. 40 print"[147][144][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][196][192][192][192][192][192][192][192][192][192][157][157][157][157][157][157][157][157][157][157][193]  [177] [178] [179] [180] "
  10. 45 poke32846,64:poke32847,64:poke55374,0:poke55375,0
  11. 50 printtab(28)"[144][193][157][193] [187] [188] [189] [190] [191]":printtab(28)"[144][193][157][193] [175] [176] [219] [223] [163]
  12. 60 [153][163]28)"stopatncmdatn then step - / fn"
  13. 70 [153][163]28)"stopatncmdatn abs fre (NULL) (NULL) (NULL)"
  14. 80 [153][163]28)"stopatncmdatn  (NULL) (NULL) (NULL) (NULL) "
  15. 90 [153][163]28)"atncmdatn"
  16. 92 [153][163]28) "atnpeektantantantanstr$tantantantanlencmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdatnatnquitstopatnhelpstopleft$cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
  17. 93 [153][163]28) "atnascright$right$right$right$valright$right$right$right$chr$";
  18. 94 [153][163]28) "cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
  19. 100 [153][163]28) "atn peektantantanstr$tantantanlencmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdatn atnclrstopatnrststopleft$"
  20. 120 [153][163]28)"atn ascright$right$right$valright$right$right$chr$"
  21. 160 [153][163]28)"atnpeektantantantanstr$tantantantanlencmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdatnatnloadstopatnsavestopleft$"
  22. 170 [153][163]28)"onatnascright$right$right$right$valright$right$right$right$chr$":[151]33756,65:[151]56284,0
  23. 175 :
  24. 190 c$[178]"stop                                     "
  25. 195 :
  26. 200 [151]53280,14:[151]53281,14
  27. 210 v[178]53248:[151]v[170]21,1:[151]v[170]39,1:[151]v,100:[151]v[170]1,100:[151]v[170]16,0
  28. 215 [151]53265,[194](53265)[176]16
  29. 220 [151]33784,223
  30. 225 :
  31. 230 [134]ng(100),b(100),d$(100),gl(100)
  32. 235 :
  33. 240 [151]198,0
  34. 260 [153]"  do you want to use a mouse? (y/n)"
  35. 290 [161]a$:[139]a$[178]"y"[167][151]49209,255:[137]310
  36. 300 [139]a$[179][177]"n"[167]290
  37. 302 [143]
  38. 303 [143] ------------------------------
  39. 304 [143]
  40. 310 c$[178]"           l o g i c   c a dstop           "
  41. 312 ee$[178]"               e r r o r !            "
  42. 315 [153]c$
  43. 320 yy[178][198](a$):[158]49188
  44. 330 [129]i[178]32805[164]32807:[151]i,32:[130]
  45. 340 d[178]32
  46. 900 [143]
  47. 910 [143] ------------------------------
  48. 920 [143]  line #1000 is the start of
  49. 930 [143]     the main input loop
  50. 940 [143] ------------------------------
  51. 950 [143]
  52. 1000 [151]33784,223 : [153]c$
  53. 1010 mm[178][194](56321):mn[178][194](56320):mf[178]mn[175]16
  54. 1015 [158]49689 : a$[178][199]([194](49688))
  55. 1016 [151]49688,0:[139]a$[178][199](13)[167]mf[178]0
  56. 1020 sl[178]32768[170][181](([194](v)[171]24)[173]8)[170]([181](([194](v[170]1)[171]50)[173]8)[172]40)
  57. 1030 [139]mm[178]239[176](mf[178]16)[178]0[167]1100
  58. 1040 [139]mm[178]254[176]a$[178]"let"[167]1200
  59. 1050 [139]a$[178]"restore"[167]50000
  60. 1060 [137]1010
  61. 1100 [139][194](v[170]16)[175]1[178]1[167]1120
  62. 1110 [137]1900
  63. 1120 sl[178]sl[170]32:d[178][194](sl):[139]d[179]75[176]d[177]128[167]d[178]32
  64. 1130 [139]d[178]117[167]d[178]32
  65. 1135 xc[178][194](v) : yc[178][194](v[170]1)
  66. 1136 [139]xc[177]44[167][139]xc[179]88[167][139]yc[177]171[167][139]yc[179]192[167][137]9000
  67. 1137 [139]xc[177]1[167][139]xc[179]45[167][139]yc[177]171[167][139]yc[179]192[167][137]50000
  68. 1140 [139]yc[177]197[167][139]yc[179]215[167][139]xc[179]42[167]2000
  69. 1150 [139]yc[177]197[167][139]yc[179]215[167][139]xc[177]47[167][139]ng[177]0[167][158]50036:[137]1000
  70. 1160 [139]xc[179]44[167][139]yc[177]218[167]1300
  71. 1170 [139]xc[177]47[167][139]yc[177]218[167]1500
  72. 1175 zz[178][194](sl):[151]sl,zz[176]128:[141]20010:[151]sl,zz
  73. 1180 [137]1000
  74. 1190 [143]
  75. 1191 [143] -----------------------------
  76. 1192 [143] this is the test routine
  77. 1193 [143] -----------------------------
  78. 1194 [143]
  79. 1200 [139][194](v[170]16)[175]1[178]1[167][153]c$:[137]1000
  80. 1205 [153]"     press f1 to cancel testing       "
  81. 1210 [151]33784,221:[151]198,0:d[178][194](sl):[139]d[178]113[167]d$[178]"r":sl[178]sl[170]1:[137]1260
  82. 1220 [139]d[178]114[167]d$[178]"l":sl[178]sl[171]1:[137]1260
  83. 1230 [139]d[178]115[167]d$[178]"u":sl[178]sl[171]40:[137]1260[173]zz[173]
  84. 1240 [139]d[178]116[167]d$[178]"d":sl[178]sl[170]40:[137]1260
  85. 1250 [137]3010
  86. 1260 bn[178]0:gn[178]0:[137]5000
  87. 1270 [143]
  88. 1275 [143] -----------------------------
  89. 1280 [143] this is the 'load' routine
  90. 1285 [143] -----------------------------
  91. 1290 [143]
  92. 1300 [151]198,0:[151]33784,222:[141]1400:[139]f$[178]""[167][153]c$:[137]1000
  93. 1305 [151]v[170]21,.
  94. 1310 f$[178]f$[170]".caed":[159]15,8,15,"i":[159]8,8,8,"0:"[170]f$[170]",p,r"
  95. 1330 [132]15,a,a$,cv,cv:[160]8:[160]15
  96. 1340 [139]a[179][177]0[167][151]v[170]21,1:[141]1470:[137]1000
  97. 1350 [158]57812f$,8,0:[151]780,0:[151]781,80:[151]782,128:[158]65493
  98. 1360 pp[178]33785:ng[178][194](pp[171]2)
  99. 1370 [129]j[178]1[164]ng:gl(j)[178][194](pp)[172]256[170][194](pp[170]1)
  100. 1380 pp[178]pp[170]2:[130]:[158]49884
  101. 1390 [151]v[170]21,1:[137]1000
  102. 1395 :
  103. 1400 f$[178]"":[153]"      filename>                   cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
  104. 1410 [161]a$:[139]a$[178]""[167]1410
  105. 1420 [139]a$[178][199](13)[167][142]
  106. 1430 [139]a$[178][199](20)[175][195](f$)[178]0[167]1410
  107. 1440 [139]a$[178][199](20)[167]f$[178][200](f$,[195](f$)[171]1):[153]a$;:[137]1410
  108. 1445 [139]a$[179]" "[176]a$[177]"_"[167]1410
  109. 1450 [139][195](f$)[177]10[167]1410
  110. 1460 f$[178]f$[170]a$:[153]a$;:[137]1410
  111. 1470 [153]c$;""a$
  112. 1480 [129]i[178]0[164]2000:[130]:[153]c$
  113. 1490 [142]
  114. 1492 [143]
  115. 1493 [143] -----------------------------
  116. 1495 [143]   this is the "save" routine
  117. 1496 [143] -----------------------------
  118. 1497 [143]
  119. 1500 [151]198,0:[151]33784,222:[141]1400:[139]f$[178]""[167][153]c$:[137]1000
  120. 1505 [151]v[170]21,.
  121. 1510 f$[178]f$[170]".caed":[158]50036:pp[178]33785:[151]pp[171]2,ng
  122. 1520 [129]j[178]1[164]ng:k[178]gl(j):sh[178][181](k[173]256):[151]pp,sh:[151]pp[170]1,k[171]sh[172]256
  123. 1530 pp[178]pp[170]2:[130]
  124. 1540 [159]15,8,15,"#":[159]8,8,8,"0:"[170]f$
  125. 1550 [151]780,253:[151]253,80:[151]254,128:eh[178][181](pp[173]256):[151]782,eh
  126. 1560 [151]781,pp[171]eh[172]256
  127. 1570 [158]65496:[132]15,a,a$:[151]v[170]21,1:[139]a[178]63[167][160]8:[137]1600
  128. 1580 [139]a[179][177]0[167]1470
  129. 1585 :
  130. 1590 [152]15,"i0:":[160]8:[160]15:[153]c$:[137]1000
  131. 1600 [152]15,"i":[153]"    file exists...  replace? (y/n)    "
  132. 1610 [161]a$:[139]a$[178]"n"[167]1590
  133. 1620 [139]a$[179][177]"y"[167]1610
  134. 1630 [159]8,8,8,"@0:"[170]f$
  135. 1640 [153]c$:[137]1550
  136. 1891 [143]
  137. 1892 [143] "icon placement routine"
  138. 1893 [143]
  139. 1900 [139][194](v[170]1)[179]67[176][194](v)[179]27[176][194](v)[177]246[176][194](v[170]1)[177]239[167]1000
  140. 1910 [143]   iffl=1thenfl=0:ng=0
  141. 1920 [151]sl,d
  142. 1930 [129]i[178]1[164]ng:[139]gl(i)[178]sl[167]gl(i)[178]0
  143. 1940 [130]
  144. 1970 [139]d[177]122[175]d[179]128[167]ng[178]ng[170]1:gl(ng)[178]sl:cv[178]6:[137]1980
  145. 1971 [139]d[177]112[167][139]d[179]117[167]cv[178]0:[137]1980
  146. 1972 [139]d[178]79[176]d[178]81[176]d[178]83[176]d[178]85[167]cv[178]0:[137]1980
  147. 1973 cv[178]1
  148. 1980 [151]sl[170]22528,cv : [137]1000
  149. 1991 [143]
  150. 1992 [143] -----------------------------
  151. 1993 [143]   this is the "clear" routine
  152. 1994 [143] -----------------------------
  153. 1995 [143]
  154. 2000 [153]"           are you sure? (y/n)         "
  155. 2020 [161]a$:[139]a$[178]""[167]2020
  156. 2040 [139]a$[178]"y"[176]a$[178]"(NULL)"[167]2060
  157. 2050 [153] c$:[137]1000
  158. 2055 :
  159. 2060 [153]"                            "
  160. 2070 [129]zz[178]1[164]21
  161. 2080 [153]"                            ";
  162. 2090 [130]zz
  163. 2260 [153]"                            ";
  164. 2270 [153]c$;
  165. 2280 ng[178]0  :  [143] fl=1
  166. 2290 [137]1000
  167. 2291 [143]
  168. 2292 [143] -----------------------------
  169. 2293 [143]   this is the "error" routine
  170. 2294 [143] -----------------------------
  171. 2295 [143]
  172. 3000 :
  173. 3010 [151]sl,[194](sl)[176]128:[151]sl[170]22528,4
  174. 3020 [129]jd[178]1[164]16:[129]tj[178]1[164]20:[130]
  175. 3030 [151]646,jd[175]1
  176. 3040 [153]""ee$
  177. 3050 [130]
  178. 3060 [151]sl,[194](sl)[175]127
  179. 3090 [153]c$:[158]50036:bn[178]0:b[178]0:[137]1000
  180. 3500 [139]b[178]0[167]3550
  181. 3510 bn[178]bn[170]1:[139]bn[177]b[167]bn[178]0:b[178]0:[137]3550
  182. 3520 [139]b(bn)[178]0[167]3510
  183. 3530 sl[178]b(bn):d$[178]d$(bn):b(bn)[178]0
  184. 3540 [137]5000
  185. 3550 gn[178]gn[170]1:[139]gn[177]ng[175]c[178]0[167]d[178]32:[137]1000
  186. 3560 [139]gn[177]ng[167]c[178]0:gn[178]0:bn[178]0:[137]3550
  187. 3570 sl[178]gl(gn):d[178][194](sl):[139]sl[178]0[167]3550
  188. 3580 [139]d[177]122[175]d[179]126[167]d$[178]"r":l[178][194](sl[171]1):nl[178]sl[170]1:[137]4000
  189. 3590 d$[178]"l":l[178][194](sl[170]1):nl[178]sl[171]1
  190. 4000 [161]a$:[139]a$[178]"input"[167][151]33784,223:[137]1000
  191. 4005 [139]d[178]123[175](l[177]90[175]l[179]94)[167]o[178]0:[137]4500:[143] right and
  192. 4010 [139]d[178]123[175]l[179][177]94[167]3010
  193. 4020 [139]d[178]123[167]o[178]1:[137]4500
  194. 4030 [139]d[178]124[175](l[177]91[175]l[179]95)[167]o[178]1:[137]4500:[143] right or
  195. 4040 [139]d[178]124[175]l[179][177]91[167]3010
  196. 4050 [139]d[178]124[167]o[178]0:[137]4500
  197. 4060 [139]d[178]126[175](l[177]94[175]l[179]98)[167]o[178]0:[137]4500:[143]  left and
  198. 4070 [139]d[178]126[175]l[179][177]98[167]3010
  199. 4080 [139]d[178]126[167]o[178]1:[137]4500
  200. 4090 [139]d[178]127[175](l[177]95[175]l[179]99)[167]o[178]1:[137]4500:[143] left or
  201. 4100 [139]d[178]127[175]l[179][177]95[167]3010
  202. 4110 [139]d[178]127[167]o[178]0:[137]4500
  203. 4130 [139]d[179][177]125[167]3010
  204. 4140 [139]l[178]87[176]l[178]88[176]l[178]101[176]l[178]105[176]l[178]109[176]l[178]120[176]l[178]75[176]l[178]77[167]o[178]1:[137]4520
  205. 4150 [139]l[178]89[176]l[178]90[176]l[178]102[176]l[178]106[176]l[178]110[176]l[178]121[176]l[178]76[176]l[178]78[167]o[178]0:[137]4520
  206. 4160 [137]3010:err[176]
  207. 4500 [139][194](nl)[178]111[167]sl[178]nl[170]1:o[178](o[170]1)[175]1:[137]4530
  208. 4510 [139][194](nl)[178]112[167]sl[178]nl[171]1:o[178](o[170]1)[175]1:[137]4530
  209. 4520 sl[178]nl
  210. 4530 e[178][194](sl)
  211. 4540 [139]o[178]1[175](e[178]79[176]e[178]81[176]e[178]83[176]e[178]85[176]e[178]87[176]e[178]88[176]e[178]101[176]e[178]103)[167]c[178]1:[137]5000
  212. 4550 [139]o[178]1[175](e[178]105[176]e[178]107[176]e[178]109[176]e[178]118[176]e[178]120[176]e[178]75[176]e[178]77)[167]c[178]1:[137]5000
  213. 4560 [139]o[178]0[175](e[178]80[176]e[178]82[176]e[178]84[176]e[178]86[176]e[178]89[176]e[178]90[176]e[178]102[176]e[178]104)[167]c[178]1:[137]5000
  214. 4570 [139]o[178]0[175](e[178]106[176]e[178]108[176]e[178]110[176]e[178]119[176]e[178]121[176]e[178]76[176]e[178]78)[167]c[178]1:[137]5000
  215. 4580 [139]e[178]111[176]e[178]112[167]3010
  216. 4590 [137]3550
  217. 5000 l[178]d:d[178][194](sl):[139]d[179]74[167]3010
  218. 5001 [139]d[177]112[175]d[179]117[167]3010
  219. 5002 [145]d[171]74 [137]5670,5700,5730,5760
  220. 5003 [139]d[177]78[175]d[179]87[167]5790
  221. 5004 [139]d[179]91[167]5010
  222. 5005 [145] d[171]90 [137] 5160,5180,5200,5220,5240,5260,5280,5300,5320,5340,5360,5380
  223. 5006 [145] d[171]102 [137] 5400,5420,5440,5460,5480,5500,5520,5540
  224. 5007 [139]d[179]118[167]3010
  225. 5008 [145]d[171]117 [137]5560,5590,5620,5650
  226. 5009 [139]d[177]122[175]d[179]128[175](d$[178]"l"[176]d$[178]"r")[167]3500
  227. 5010 [139]d[178]87[175]d$[178]"u"[167][151]sl,88:sl[178]sl[171]40:[137]5000
  228. 5020 [139]d[178]87[175]d$[178]"d"[167][151]sl,88:sl[178]sl[170]40:[137]5000
  229. 5030 [139]d[178]87[175]d$[178]"r"[167][151]sl,89:sl[178]sl[170]1:[137]5000
  230. 5040 [139]d[178]87[175]d$[178]"l"[167][151]sl,89:sl[178]sl[171]1:[137]5000
  231. 5050 [139]d[178]88[175]d$[178]"u"[167][151]sl,87:sl[178]sl[171]40:[137]5000
  232. 5060 [139]d[178]88[175]d$[178]"d"[167][151]sl,87:sl[178]sl[170]40:[137]5000
  233. 5070 [139]d[178]88[175]d$[178]"r"[167][151]sl,90:sl[178]sl[170]1:[137]5000
  234. 5080 [139]d[178]88[175]d$[178]"l"[167][151]sl,90:sl[178]sl[171]1:[137]5000
  235. 5090 [139]d[178]89[175]d$[178]"u"[167][151]sl,90:sl[178]sl[171]40:[137]5000
  236. 5100 [139]d[178]89[175]d$[178]"d"[167][151]sl,90:sl[178]sl[170]40:[137]5000
  237. 5110 [139]d[178]89[175]d$[178]"r"[167][151]sl,87:sl[178]sl[170]1:[137]5000
  238. 5120 [139]d[178]89[175]d$[178]"l"[167][151]sl,87:sl[178]sl[171]1:[137]5000
  239. 5130 [139]d[178]90[175]d$[178]"u"[167][151]sl,89:sl[178]sl[171]40:[137]5000
  240. 5140 [139]d[178]90[175]d$[178]"d"[167][151]sl,89:sl[178]sl[170]40:[137]5000
  241. 5150 [139]d[178]90[175]d$[178]"r"[167][151]sl,88:sl[178]sl[170]1:[137]5000
  242. 5155 [139]d[178]90[175]d$[178]"l"[167][151]sl,88:sl[178]sl[171]1:[137]5000
  243. 5160 [139]d[178]91[175]d$[178]"u"[167][151]sl,93:sl[178]sl[170]1:d$[178]"r":[137]5000
  244. 5170 [139]d[178]91[175]d$[178]"d"[167][151]sl,92:sl[178]sl[170]1:d$[178]"r":[137]5000
  245. 5180 [139]d[178]92[175]d$[178]"u"[167][151]sl,94:sl[178]sl[170]1:d$[178]"r":[137]5000
  246. 5190 [139]d[178]92[175]d$[178]"d"[167][151]sl,91:sl[178]sl[170]1:d$[178]"r":[137]5000
  247. 5200 [139]d[178]93[175]d$[178]"u"[167][151]sl,91:sl[178]sl[170]1:d$[178]"r":[137]5000
  248. 5210 [139]d[178]93[175]d$[178]"d"[167][151]sl,94:sl[178]sl[170]1:d$[178]"r":[137]5000
  249. 5220 [139]d[178]94[175]d$[178]"u"[167][151]sl,92:sl[178]sl[170]1:d$[178]"r":[137]5000
  250. 5230 [139]d[178]94[175]d$[178]"d"[167][151]sl,93:sl[178]sl[170]1:d$[178]"r":[137]5000
  251. 5240 [139]d[178]95[175]d$[178]"u"[167][151]sl,97:sl[178]sl[171]1:d$[178]"l":[137]5000
  252. 5250 [139]d[178]95[175]d$[178]"d"[167][151]sl,96:sl[178]sl[171]1:d$[178]"l":[137]5000
  253. 5260 [139]d[178]96[175]d$[178]"u"[167][151]sl,98:sl[178]sl[171]1:d$[178]"l":[137]5000
  254. 5270 [139]d[178]96[175]d$[178]"d"[167][151]sl,95:sl[178]sl[171]1:d$[178]"l":[137]5000
  255. 5280 [139]d[178]97[175]d$[178]"u"[167][151]sl,95:sl[178]sl[171]1:d$[178]"l":[137]5000
  256. 5290 [139]d[178]97[175]d$[178]"d"[167][151]sl,98:sl[178]sl[171]1:d$[178]"l":[137]5000
  257. 5300 [139]d[178]98[175]d$[178]"u"[167][151]sl,96:sl[178]sl[171]1:d$[178]"l":[137]5000
  258. 5310 [139]d[178]98[175]d$[178]"d"[167][151]sl,97:sl[178]sl[171]1:d$[178]"l":[137]5000
  259. 5320 [139]d[178]99[175]d$[178]"u"[167][151]sl,100:sl[178]sl[171]40:[137]5000
  260. 5330 [139]d[178]99[175]d$[178]"d"[167][151]sl,100:sl[178]sl[170]40:[137]5000
  261. 5340 [139]d[178]100[175]d$[178]"u"[167][151]sl,99:sl[178]sl[171]40:[137]5000
  262. 5350 [139]d[178]100[175]d$[178]"d"[167][151]sl,99:sl[178]sl[170]40:[137]5000
  263. 5360 [139]d[178]101[175]d$[178]"r"[167][151]sl,102:sl[178]sl[170]1:[137]5000
  264. 5370 [139]d[178]101[175]d$[178]"l"[167][151]sl,102:sl[178]sl[171]1:[137]5000
  265. 5380 [139]d[178]102[175]d$[178]"r"[167][151]sl,101:sl[178]sl[170]1:[137]5000
  266. 5390 [139]d[178]102[175]d$[178]"l"[167][151]sl,101:sl[178]sl[171]1:[137]5000
  267. 5400 [139]d[178]103[175]d$[178]"u"[167][151]sl,104:sl[178]sl[171]1:d$[178]"l":[137]5000
  268. 5410 [139]d[178]103[175]d$[178]"r"[167][151]sl,104:sl[178]sl[170]40:d$[178]"d":[137]5000
  269. 5420 [139]d[178]104[175]d$[178]"u"[167][151]sl,103:sl[178]sl[171]1:d$[178]"l":[137]5000
  270. 5430 [139]d[178]104[175]d$[178]"r"[167][151]sl,103:sl[178]sl[170]40:d$[178]"d":[137]5000
  271. 5440 [139]d[178]105[175]d$[178]"u"[167][151]sl,106:sl[178]sl[170]1:d$[178]"r":[137]5000
  272. 5450 [139]d[178]105[175]d$[178]"l"[167][151]sl,106:sl[178]sl[170]40:d$[178]"d":[137]5000
  273. 5460 [139]d[178]106[175]d$[178]"u"[167][151]sl,105:sl[178]sl[170]1:d$[178]"r":[137]5000
  274. 5470 [139]d[178]106[175]d$[178]"l"[167][151]sl,105:sl[178]sl[170]40:d$[178]"d":[137]5000
  275. 5480 [139]d[178]107[175]d$[178]"d"[167][151]sl,108:sl[178]sl[171]1:d$[178]"l":[137]5000
  276. 5490 [139]d[178]107[175]d$[178]"r"[167][151]sl,108:sl[178]sl[171]40:d$[178]"u":[137]5000
  277. 5500 [139]d[178]108[175]d$[178]"d"[167][151]sl,107:sl[178]sl[171]1:d$[178]"l":[137]5000
  278. 5510 [139]d[178]108[175]d$[178]"r"[167][151]sl,107:sl[178]sl[171]40:d$[178]"u":[137]5000
  279. 5520 [139]d[178]109[175]d$[178]"d"[167][151]sl,110:sl[178]sl[170]1:d$[178]"r":[137]5000
  280. 5530 [139]d[178]109[175]d$[178]"l"[167][151]sl,110:sl[178]sl[171]40:d$[178]"u":[137]5000
  281. 5540 [139]d[178]110[175]d$[178]"d"[167][151]sl,109:sl[178]sl[170]1:d$[178]"r":[137]5000
  282. 5550 [139]d[178]110[175]d$[178]"l"[167][151]sl,109:sl[178]sl[171]40:d$[178]"u":[137]5000
  283. 5560 [139]d[178]118[175]d$[178]"u"[167][151]sl,119:b[178]b[170]1:b(b)[178]sl[171]1:sl[178]sl[171]40:d$(b)[178]"l":[137]5000
  284. 5570 [139]d[178]118[175]d$[178]"d"[167][151]sl,119:b[178]b[170]1:b(b)[178]sl[171]1:sl[178]sl[170]40:d$(b)[178]"l":[137]5000
  285. 5580 [139]d[178]118[175]d$[178]"r"[167][151]sl,119:b[178]b[170]1:d$[178]"d":b(b)[178]sl[171]40:sl[178]sl[170]40:d$(b)[178]"u":[137]5000
  286. 5590 [139]d[178]119[175]d$[178]"u"[167][151]sl,118:b[178]b[170]1:b(b)[178]sl[171]1:sl[178]sl[171]40:d$(b)[178]"l":[137]5000
  287. 5600 [139]d[178]119[175]d$[178]"d"[167][151]sl,118:b[178]b[170]1:b(b)[178]sl[171]1:sl[178]sl[170]40:d$(b)[178]"l":[137]5000
  288. 5610 [139]d[178]119[175]d$[178]"r"[167][151]sl,118:b[178]b[170]1:d$[178]"d":b(b)[178]sl[171]40:sl[178]sl[170]40:d$(b)[178]"u":[137]5000
  289. 5620 [139]d[178]120[175]d$[178]"u"[167][151]sl,121:b[178]b[170]1:b(b)[178]sl[170]1:sl[178]sl[171]40:d$(b)[178]"r":[137]5000
  290. 5630 [139]d[178]120[175]d$[178]"d"[167][151]sl,121:b[178]b[170]1:b(b)[178]sl[170]1:sl[178]sl[170]40:d$(b)[178]"r":[137]5000
  291. 5640 [139]d[178]120[175]d$[178]"l"[167][151]sl,121:b[178]b[170]1:d$[178]"d":b(b)[178]sl[171]40:sl[178]sl[170]40:d$(b)[178]"u":[137]5000
  292. 5650 [139]d[178]121[175]d$[178]"u"[167][151]sl,120:b[178]b[170]1:b(b)[178]sl[170]1:sl[178]sl[171]40:d$(b)[178]"r":[137]5000
  293. 5660 [139]d[178]121[175]d$[178]"d"[167][151]sl,120:b[178]b[170]1:b(b)[178]sl[170]1:sl[178]sl[170]40:d$(b)[178]"r":[137]5000
  294. 5665 [139]d[178]121[175]d$[178]"l"[167][151]sl,120:b[178]b[170]1:d$[178]"d":b(b)[178]sl[170]1:sl[178]sl[170]40:d$(b)[178]"r":[137]5000
  295. 5670 [139]d[178]75[175]d$[178]"r"[167][151]sl,76:b[178]b[170]1:b(b)[178]sl[171]40:sl[178]sl[170]1:d$(b)[178]"u":[137]5000
  296. 5680 [139]d[178]75[175]d$[178]"l"[167][151]sl,76:b[178]b[170]1:b(b)[178]sl[171]40:sl[178]sl[171]1:d$(b)[178]"u":[137]5000
  297. 5690 [139]d[178]75[175]d$[178]"d"[167][151]sl,76:b[178]b[170]1:d$[178]"r":b(b)[178]sl[171]1:sl[178]sl[170]1:d$(b)[178]"l":[137]5000
  298. 5700 [139]d[178]76[175]d$[178]"r"[167][151]sl,75:b[178]b[170]1:b(b)[178]sl[171]40:sl[178]sl[170]1:d$(b)[178]"u":[137]5000
  299. 5710 [139]d[178]76[175]d$[178]"l"[167][151]sl,75:b[178]b[170]1:b(b)[178]sl[171]40:sl[178]sl[171]1:d$(b)[178]"u":[137]5000
  300. 5720 [139]d[178]76[175]d$[178]"d"[167][151]sl,75:b[178]b[170]1:d$[178]"r":b(b)[178]sl[171]1:sl[178]sl[170]1:d$(b)[178]"l":[137]5000
  301. 5730 [139]d[178]77[175]d$[178]"r"[167][151]sl,78:b[178]b[170]1:b(b)[178]sl[170]40:sl[178]sl[170]1:d$(b)[178]"d":[137]5000
  302. 5740 [139]d[178]77[175]d$[178]"l"[167][151]sl,78:b[178]b[170]1:b(b)[178]sl[170]40:sl[178]sl[171]1:d$(b)[178]"d":[137]5000
  303. 5750 [139]d[178]77[175]d$[178]"u"[167][151]sl,78:b[178]b[170]1:d$[178]"r":b(b)[178]sl[171]1:sl[178]sl[170]1:d$(b)[178]"l":[137]5000
  304. 5760 [139]d[178]78[175]d$[178]"r"[167][151]sl,77:b[178]b[170]1:b(b)[178]sl[170]40:sl[178]sl[170]1:d$(b)[178]"d":[137]5000
  305. 5770 [139]d[178]78[175]d$[178]"l"[167][151]sl,77:b[178]b[170]1:b(b)[178]sl[170]40:sl[178]sl[171]1:d$(b)[178]"d":[137]5000
  306. 5780 [139]d[178]78[175]d$[178]"u"[167][151]sl,77:b[178]b[170]1:d$[178]"r":b(b)[178]sl[171]1:sl[178]sl[170]1:d$(b)[178]"l":[137]5000
  307. 5790 [139]d[178]79[175]d$[178]"r"[167][151]sl,80:[137]3500
  308. 5800 [139]d[178]80[175]d$[178]"r"[167][151]sl,79:[137]3500
  309. 5810 [139]d[178]81[175]d$[178]"l"[167][151]sl,82:[137]3500
  310. 5820 [139]d[178]82[175]d$[178]"l"[167][151]sl,81:[137]3500
  311. 5830 [139]d[178]83[175]d$[178]"d"[167][151]sl,84:[137]3500
  312. 5840 [139]d[178]84[175]d$[178]"d"[167][151]sl,83:[137]3500
  313. 5850 [139]d[178]85[175]d$[178]"u"[167][151]sl,86:[137]3500
  314. 5860 [139]d[178]86[175]d$[178]"u"[167][151]sl,85:[137]3500
  315. 6000 [137]3010
  316. 7000 [159]15,8,15,"s0:my.cad":[160]15:[148]"my.cad",8:[128]
  317. 9000 [158]49506,5:[141]10000:[151]198,0
  318. 9010 [161]a$:[139]a$[178]""[167]9010
  319. 9015 [158]49509,5:[151]v[170]21,1:[137]1000
  320. 9020 :
  321. 10000 [151]v[170]21,0:[153]"loadstop             peektantantantantantantantantantantantantanlen"
  322. 10002 [153][163]13)"atn help screenstop left$"
  323. 10004 [153][163]13)"ascright$right$right$right$right$right$right$right$right$right$right$right$right$chr$"
  324. 10010 [153][163]14)"rnd -- and gate"
  325. 10030 [153][163]14)"log -- or gate"
  326. 10050 [153][163]14)"exp -- inverter"
  327. 10060 [153][163]14)"stop> -- input"
  328. 10070 [153][163]14)"stop(NULL) -- output"
  329. 10072 [153]" press f7 to toggle the input that the"
  330. 10073 [153]" probe is pointing to.  the circuit"
  331. 10074 [153]" will then 'run' -- all inputs will"
  332. 10075 [153]" be triggered."
  333. 10080 [153]" the clr icon will erase your drawing."
  334. 10090 [153]" the reset icon will reset the level"
  335. 10100 [153]" of each line to logic 0 (thin line)."
  336. 10900 [153]"       press any key to continue"
  337. 10910 [142]
  338. 20010 [151]sd[170]1,150:[151]sd[170]5,9:[151]sd[170]15,30:[151]sd[170]24,15
  339. 20020 [151]sd[170]4,21:[129]t[178]1[164]25:[130]t:[151]sd[170]4,20
  340. 20030 [129]t[178]0[164]24:[151]sd[170]t,.:[130]t:[142]
  341. 50000 [153]"       return to loadstar? (y/n)for     "
  342. 50010 [161]a$:[139]a$[178]""[167]50010
  343. 50020 [139]a$[179][177]"y"[175]a$[179][177]"(NULL)"[167][153]c$:[137]1000
  344. 50030 [153]"load":[151]648,4:[153]"load":[151]53270,200:[151]53272,21:[151]56576,151
  345. 50040 [151]53280,.:[151]53281,.:                 [151]53269,.
  346. 50050 :
  347. 60000 [159]15,8,15,"r0:magic ii=magic ii":[132]15,er:[160]15
  348. 60010 [139] er[179][177]63 [167] [153]"load":[128]
  349. 60020 [158]57812"magic ii",8,0:[151]780,.:[151]781,.:[151]782,128:[158]65493
  350. 60030 [158]64738
  351. 60060 :
  352. 60070 :
  353. 61000 [151]214,15:[153]:[153]"  listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefreprint#"
  354. 61130 [129]i[178]1[164]3:[153]"                                      ":[130]
  355. 61150 [153]"        (NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #64     "
  356. 61160 [153]"      (NULL)ubscriptions 1-800-831-2694    "
  357. 61180 [153]"                                      "
  358. 61190 [153]"  pokepospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospos"
  359. 61200 au$[178]"(NULL)ogic lenad":[151]214,17:[153]:[153][166]20[171][195](au$)[173]2)"print#"au$
  360. 61210 au$[178]"peeky str$onald (NULL)illman  (len) 1989":[151]214,18:[153]
  361. 61220 [153][166]20[171][195](au$)[173]2)"print#"au$"":[142]
  362.